(Fposition_bytes): Allow marker as arg POSITION. Use

XINT for type consistency.

diff --git a/src/editfns.c b/src/editfns.c
index 15398e57a6055d4eaa2ababfae6d5a77a514b6fa..1630888f446554c1a8de216a17c62c1b636eb4be 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -459,8 +459,8 @@ DEFUN ("position-bytes", Fposition_bytes, Sposition_bytes, 1, 1, 0,
   "Return the byte position for character position POSITION.")
   (position)
 {
-  CHECK_NUMBER (position, 1);
-  return make_number (CHAR_TO_BYTE (position));
+  CHECK_NUMBER_COERCE_MARKER (position, 1);
+  return make_number (CHAR_TO_BYTE (XINT (position)));
 }
 \f
 DEFUN ("following-char", Ffollowing_char, Sfollowing_char, 0, 0, 0,